function Kelidan_OnCombat(Unit, Event)
Unit:SendChatMessage(14, 0, "Qui ose interrompre - Qu'est-ce que c'est, qu'est-ce que vous faites? Vous allez tout gâcher!")
Unit:RegisterEvent("Kelidan_Spell1", 3000, 0)
Unit:RegisterEvent("Kelidan_Spell2", 30000, 0)
Unit:RegisterEvent("Kelidan_Spell3", 20000, 0)
end

function Kelidan_Spell1(Unit, Event)
Unit:FullCastSpellOnTarget(17228, Unit:GetMainTank(0))
end

function Kelidan_Spell2(Unit, Event)
Unit:FullCastSpellOnTarget(30925, Unit:GetRandomPlayer(0))
end

function Kelidan_Spell3(Unit, Event)
Unit:SendChatMessage(14, 0, "Approchez ... approchez ... et brulez !")
Unit:CastSpell(37370)
Unit:CastSpell(30940)
Unit:CastSpell(33775)
end

function Kelidan_OnLeaveCombat(Unit, Event)
Unit:RemoveEvents() 
end

function Kelidan_OnKilledTarget(Unit, Event)
Unit:SendChatMessage(14, 0,"Vos amis vont bientôt se joindre à vous.")
end

function Kelidan_OnDied(Unit, Event)
Unit:SendChatMessage(14, 0,"Bonne... chance. Vous en aurez besoin.")
Unit:RemoveEvents() 
end

RegisterUnitEvent(17381, 1, "Kelidan_OnCombat")
RegisterUnitEvent(17381, 2, "Kelidan_OnLeaveCombat")
RegisterUnitEvent(17381, 3, "Kelidan_OnKilledTarget")
RegisterUnitEvent(17381, 4, "Kelidan_OnDied")